home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 250 (1993-06-10)(Manewaldt, A.)(DE)(PD).zip / Taifun 250 (1993-06-10)(Manewaldt, A.)(DE)(PD).adf / ADM / ARexx / List.rexx < prev    next >
OS/2 REXX Batch file  |  1993-06-11  |  2KB  |  84 lines
  1.  
  2. /* $VER: List.rexx 1.2 (10.02.93)
  3.  
  4.    Usage: rx List.rexx <Ausgabedatei>
  5.  
  6.    Beispielscript, wie man Adressdaten per ARexx-Befehl  auslesen
  7.    kann.
  8.    Gibt die Daten in die angegebene Datei, ansonsten in CON: aus.
  9.  
  10.    Written by Jan Geißler. */
  11.  
  12.  
  13.  
  14. OPTIONS RESULTS                      /* Rückgabewerte zulassen   */
  15.  
  16.  
  17.                                      /* Wurde ein Argument ange-
  18.                                         geben?                   */
  19.  
  20. IF arg() ~= 1 THEN outfile="*"
  21.               ELSE PARSE ARG outfile;
  22.  
  23.  
  24. /*
  25.    ADDRESS ADDRESSMASTER.1
  26.  
  27.    Dieser ADDRESS-Parameter kann weggelassen werden, wenn das
  28.    Script von ADM aus ausgefuehrt werden soll! */
  29.  
  30.  
  31. ADDRINMEM                             /* Anzahl Adressen holen    */
  32. numadr = RESULT
  33.  
  34. IF numadr<1 THEN DO                  /* Fehler ausgeben, falls   */
  35.    SAY "Keine Adressen im Speicher"  /* Adreßspeicher leer       */
  36.    EXIT
  37. END
  38.  
  39. IF ~OPEN(datei,outfile,"W") THEN DO   /* Ausgabedatei öffnen     */
  40.    SAY "Kann Ausgabedatei nicht öffnen!"
  41.    EXIT
  42. END
  43.  
  44. ACTIVATEFIRST                        /* Ersten Eintr. aktivieren */
  45.  
  46.                                      /* Schleife: Bis zur letzten
  47.                                         Adresse abspeichern      */
  48.  
  49. DO FOR numAdr UNTIL RESULT=-1
  50.  
  51.    GETADDRESS ADM                    /* Adresse -> Stemvar ADM   */
  52.  
  53.    IF RESULT=0 THEN DO
  54.  
  55.       ADDRESS
  56.  
  57.                                      /* Ausgabe ... */
  58.  
  59.       ok = WriteLn(datei,ADM.ID)
  60.       ok = WriteLn(datei,ADM.LASTNAME || ", " || ADM.FIRSTNAME)
  61.       ok = WriteLn(datei,"  " || ADM.ADDRESS1)
  62.       ok = WriteLn(datei,"  " || ADM.ADDRESS2)
  63.       ok = WriteLn(datei,"  " || ADM.POSTCODE || " " || ADM.CITY || ", " || ADM.COUNTRY)
  64.       ok = WriteLn(datei,"  Tel." ADM.TELEPHONE || ", FAX:" ADM.FAX)
  65.       ok = WriteLn(datei,"  EMail:" ADM.EMAIL1 || ", " || ADM.EMAIL2);
  66.       ok = WriteLn(datei,"  Geburtstag:" ADM.BIRTHDAY)
  67.       ok = WriteLn(datei,"  Bemerkungen:")
  68.       ok = WriteLn(datei,"    " || ADM.REMARK1)
  69.       ok = WriteLn(datei,"    " || ADM.REMARK2)
  70.       ok = WriteLn(datei,"    Erstellt am" ADM.CREATION || ", letzte Änderung am " ADM.LASTCHANGE)
  71.       ok = WriteLn(datei,"------------------------------------------------------------");
  72.  
  73.       ADDRESS
  74.  
  75.       ACTIVATENEXT                   /* Akt. naechsten Eintrag */
  76.  
  77.    END
  78.  
  79. END
  80.  
  81. ADDRESS
  82.  
  83. ok = CLOSE(datei)
  84.